home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Utils / Printf.i < prev    next >
Encoding:
Text File  |  1994-04-26  |  447 b   |  22 lines
  1.  
  2. {$I "Include:DOS/Dos.i"}
  3. {$I "Include:Utils/StringLib.i"}
  4.  
  5. {$C+}
  6. PROCEDURE Printf(Str : String; ...);
  7. VAR Objects : Array[0..50] of Address;
  8.     ArgPtr : Address;
  9.     i : Integer;
  10.     ParamNum : Integer;
  11. BEGIN
  12.   VA_Start(ArgPtr);
  13.  
  14.   ParamNum:=0;
  15.   For i:=0 to StrLen(Str) do IF Str[i]='%' THEN Inc(ParamNum);  { Prozent-Zeichen zählen }
  16.  
  17.   For i:=0 to ParamNum-1 do Objects[i]:=VA_Arg(ArgPtr,Address);
  18.   i:=VPrintf(Str,adr(Objects));
  19. END;
  20. {$C-}
  21.  
  22.